home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 8 / FM Towns Free Software Collection 8.iso / fb386 / eiyoukei / gunbdump.bas < prev    next >
BASIC Source File  |  1994-06-01  |  2KB  |  66 lines
  1. 10 'SAVE "GUNBDUMP.BAS",A
  2. 20 '                          91.02.20
  3. 30 '
  4. 40 OPEN "GUNBETU.DAT" FOR INPUT AS #1
  5. 50 C6=7:CLS:CONSOLE C6,15,0:COLOR 7
  6. 60 LOCATE 0,0
  7. 70 FOR I=1 TO 5:LINE INPUT #1,A$:PRINT A$;
  8. 80 IF I<5 THEN PRINT 
  9. 90 NEXT I
  10. 99 PRINT
  11. 100 PRINT  "0         1        2         3         4         5         6        " 
  12. 110 PRINT "12345678901234567890123456789012345678901234567890123456789012345678"; 
  13. 120 LOCATE 0,C6
  14. 130 WHILE NOT EOF(1)
  15. 140 LINE INPUT #1,A$:PRINT A$
  16. 150 X$=INKEY$:IF X$="" THEN 150
  17. 160 WEND:END
  18. 10000 'SAVE "GUNBSEL.BAS",A
  19. 10010 '                          91.02.20
  20. 10020 '
  21. 10030 DIM GU$(15)
  22. 10040 OPEN "GUNBETU.DAT" FOR INPUT AS #1
  23. 10050 CLS:CONSOLE 6,15,0:COLOR 7
  24. 10060 LOCATE 0,0
  25. 10070 FOR I=1 TO 5:LINE INPUT #1,A$:PRINT A$
  26. 10080 NEXT I
  27. 10090 LOCATE 0,6
  28. 10100 WHILE NOT EOF(1)
  29. 10110 LINE INPUT #1,A$
  30. 10120 IF ASC(A$)=ASC("*") THEN 10160
  31. 10130 PRINT A$
  32. 10140 X$=INKEY$:IF X$="" THEN 10140
  33. 10150 IF X$=" " THEN 10170
  34. 10160 WEND:STOP
  35. 10170 RESTORE 10230:M=1
  36. 10180 FOR I=1 TO 15 
  37. 10190 READ N
  38. 10200 GU$(I)=MID$(A$,M,N):M=M+N+1':PRINT GU$(I)+",";
  39. 10210 NEXT I
  40. 10220 CLOSE #1:GOTO 20000
  41. 10230 DATA 7,2,8,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3
  42. 20000 'SAVE "EIYSSEL.BAS",A
  43. 20010 '                          91.02.20
  44. 20020 '
  45. 20030 DIM SE$(15)
  46. 20040 OPEN "EIYSHYO.DAT" FOR INPUT AS #1
  47. 20050 CLS:CONSOLE 6,15,0:COLOR 7
  48. 20060 LOCATE 0,0
  49. 20070 FOR I=1 TO 5:LINE INPUT #1,A$:PRINT A$
  50. 20080 NEXT I
  51. 20090 LOCATE 0,6
  52. 20100 WHILE NOT EOF(1)
  53. 20110 LINE INPUT #1,A$
  54. 20120 IF ASC(A$)=ASC("*") THEN 20160
  55. 20130 PRINT A$
  56. 20140 X$=INKEY$:IF X$="" THEN 20140
  57. 20150 IF X$=" " THEN 20170
  58. 20160 WEND:STOP
  59. 20170 RESTORE 20230:M=1
  60. 20180 FOR I=1 TO 13 
  61. 20190 READ N
  62. 20200 SE$(I)=MID$(A$,M,N):M=M+N+1:PRINT SE$(I)+",";
  63. 20210 NEXT I
  64. 20220 CLOSE #1:END
  65. 20230 DATA 7,2,8,5,3,4,3,5,4,4,3,3,4
  66.